Armageddon - Interactive Preview/Interactive Preview: Armageddon.iso/pc/control.dxr/Scripts & Behaviors_2_MovieScript 1.ls

Text File | 1998-05-19 | 3.2 KB | 129 lines

global gCommObj, gMonitorObj, gGameScreen, gBioValue, gDisplayObj, gSoundLevel, gLastSound, gTimer, gScrollerObj, gCountEnd

on startMovie
  preLoad()
  startTimer()
  set the colorDepth to 16
  set the floatPrecision to 5
  set gBioValue to 0
  set the soundLevel to 7
  set gSoundLevel to 146
  set gDisplayObj to new(script "aDisplayObj", 112)
  set gCommObj to new(script "aCommObj", 19, 20, 21)
  set gMonitorObj to new(script "aMonitorObj", 23, 24, 25)
  set gGameScreen to 14
  startTimer()
  set gTimer to the timer
  set gScrollerObj to new(script "aScrollerObj", 70, 71, 72, 24)
  set gCountEnd to 0
end

on keyUp
  if the visible of sprite 24 = 1 then
    case the keyPressed of
      "N":
        set the visible of sprite 75 to 0
        set the visible of sprite 76 to 0
        updateStage()
        ResetMonitors(gMonitorObj)
        setLeft(gMonitorObj, "Galaxy Loop")
        setCenter(gMonitorObj, "Impact Loop")
        setRight(gMonitorObj, "Still Loop")
        updateStage()
      "Y":
        set the visible of sprite 75 to 0
        set the visible of sprite 76 to 0
        set the visible of sprite 111 to 0
        set the member of sprite 24 to "Abort Text"
        updateStage()
        runCountdown()
    end case
  end if
end

on runCountdown
  setLeft(gMonitorObj, "Left Main")
  setRight(gMonitorObj, "Right Main")
  puppetSound(3, "Alarm")
  updateStage()
  set temp to 5
  puppetSprite(110, 1)
  repeat while temp > 0
    startTimer()
    repeat while the timer < 60
      nothing()
    end repeat
    set tempName to "DefCon" && temp
    set the member of sprite 110 to tempName
    puppetSound(3, "Alarm")
    updateStage()
    set temp to temp - 1
  end repeat
  startTimer()
  repeat while the timer < 60
    nothing()
  end repeat
  if the runMode = "Author" then
    halt()
  else
    go(1, "CREDITS")
  end if
end

on idle
  if the frame = 5 then
    if the timer > (gTimer + 300) then
      SwitchBios()
      set gTimer to the timer
    else
      nothing()
    end if
  end if
end

on SwitchBios
  set bioMonitorSprite to 26
  repeat with x = 1 to 6
    if the puppet of sprite bioMonitorSprite = 0 then
      puppetSprite(bioMonitorSprite, 1)
    end if
    set newBio to the memberNum of sprite bioMonitorSprite + 1
    if newBio = 9 then
      set newBio to 1
    end if
    set the memberNum of sprite bioMonitorSprite to newBio
    set BioNameSprite to bioMonitorSprite + 18
    if the puppet of sprite BioNameSprite = 0 then
      puppetSprite(BioNameSprite, 1)
    end if
    set newName to the memberNum of sprite BioNameSprite + 1
    if newName = 42 then
      set newName to 34
    end if
    set the memberNum of sprite BioNameSprite to newName
    set bioMonitorSprite to bioMonitorSprite + 1
  end repeat
  updateStage()
end

on playRandom
  set thisMember to the member of sprite 24
  set thisType to the type of member thisMember
  case thisType of
    #digitalVideo:
      nothing()
    otherwise:
      set temp1 to random(100)
      if temp1 = 100 then
        set temp2 to random(20)
        repeat while temp2 = gLastSound
          set temp2 to random(20)
        end repeat
        set gLastSound to temp2
        if not soundBusy(2) then
          puppetSound(2, "Sound" && string(temp2))
        end if
      end if
  end case
end